﻿Imports AdvanceWars.Data

Public NotInheritable Class ImageGraphics

    Shared Sub Draw(ByVal g As Graphics)
        Dim list As New List(Of Bitmap)
        For i = 0 To 25
            list.Add(ImageService.GetUnit(i, Country.BlackHole))
        Next
        g.DrawRandom(ImageService.Terrains)
        'Draw(g, ImageService.Cities)
        g.DrawRandom(list)
    End Sub

    Shared Sub Draw(ByVal pb As PictureBox)
        Dim g As Graphics = pb.CreateGraphics
        g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        Draw(g)
    End Sub

End Class
